home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / Disk-It.cpt / Disk-It / background_3211.txt < prev    next >
Text File  |  1989-02-26  |  8KB  |  401 lines
  1. -- background: 3211 from stack: in
  2. -- bmap block id: 5534
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Catalog
  6. ----- HyperTalk script -----
  7. on openCard
  8.   -- set up for multiple scrolling fields
  9.   global initScroll
  10.   put 0 into initScroll
  11.   repeat with i = 2 to 5
  12.     set the scroll of bkgnd field i to initScroll
  13.   end repeat
  14. end openCard
  15.  
  16. -- multiple field scroll
  17. on updateScroll
  18.   global initScroll
  19.   repeat with i = 2 to 5
  20.     set the scroll of bkgnd field i to initScroll
  21.   end repeat
  22. end updateScroll
  23.  
  24.  
  25.  
  26. -- part 1 (field)
  27. -- low flags: 00
  28. -- high flags: 0002
  29. -- rect: left=92 top=23 right=40 bottom=270
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 1
  33. -- font id: 0
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: Volume
  38.  
  39.  
  40. -- part 2 (field)
  41. -- low flags: 00
  42. -- high flags: 0007
  43. -- rect: left=18 top=73 right=310 bottom=159
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 0
  47. -- font id: 3
  48. -- text size: 10
  49. -- style flags: 0
  50. -- line height: 13
  51. -- part name: File Name
  52. ----- HyperTalk script -----
  53. -- multiple scroll
  54. on mouseWithin
  55.   global initScroll
  56.   if the scroll of me <> initScroll then
  57.     get the scroll of me
  58.     put it into initScroll
  59.     updateScroll
  60.   end if
  61. end mouseWithin
  62.  
  63.  
  64.  
  65. -- part 3 (field)
  66. -- low flags: 00
  67. -- high flags: 0007
  68. -- rect: left=139 top=73 right=310 bottom=218
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 0
  72. -- font id: 3
  73. -- text size: 10
  74. -- style flags: 0
  75. -- line height: 13
  76. -- part name: Object Type
  77. ----- HyperTalk script -----
  78. -- multiple scroll
  79. on mouseWithin
  80.   global initScroll
  81.   if the scroll of me <> initScroll then
  82.     get the scroll of me
  83.     put it into initScroll
  84.     updateScroll
  85.   end if
  86. end mouseWithin
  87.  
  88.  
  89.  
  90. -- part 4 (field)
  91. -- low flags: 00
  92. -- high flags: 0007
  93. -- rect: left=199 top=73 right=310 bottom=278
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 0
  97. -- font id: 3
  98. -- text size: 10
  99. -- style flags: 0
  100. -- line height: 13
  101. -- part name: Size
  102. ----- HyperTalk script -----
  103. -- multiple scroll
  104. on mouseWithin
  105.   global initScroll
  106.   if the scroll of me <> initScroll then
  107.     get the scroll of me
  108.     put it into initScroll
  109.     updateScroll
  110.   end if
  111. end mouseWithin
  112.  
  113.  
  114.  
  115. -- part 5 (field)
  116. -- low flags: 00
  117. -- high flags: 0007
  118. -- rect: left=261 top=73 right=310 bottom=358
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 0 / 0
  121. -- text alignment: 0
  122. -- font id: 3
  123. -- text size: 10
  124. -- style flags: 0
  125. -- line height: 13
  126. -- part name: Date
  127. ----- HyperTalk script -----
  128. -- multiple scroll
  129. on mouseWithin
  130.   global initScroll
  131.   if the scroll of me <> initScroll then
  132.     get the scroll of me
  133.     put it into initScroll
  134.     updateScroll
  135.   end if
  136. end mouseWithin
  137.  
  138.  
  139.  
  140. -- part 6 (button)
  141. -- low flags: 00
  142. -- high flags: A003
  143. -- rect: left=371 top=240 right=262 bottom=511
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: Catalog Disk
  152. ----- HyperTalk script -----
  153. on mouseUp
  154.   --repeat with x = 1 to the number of bkgnd fields
  155.   -- put empty into field x
  156.   -- end repeat
  157.   put ReadCat(2,1,1,1,1,1,0,0,0) into dummy
  158.   set the name of this card to line 1 of bkgnd field "Volume"
  159.   put empty into field "When Done"
  160.   put the abbrev date into field "When Done"
  161.   send Calculate to field "TotalSize"
  162.   put field "Set Size" - field "TotalSize" into field "FreeSize"
  163. end mouseUp
  164.  
  165.  
  166.  
  167. -- part 7 (button)
  168. -- low flags: 00
  169. -- high flags: 2000
  170. -- rect: left=399 top=265 right=299 bottom=432
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 902 / 902
  173. -- text alignment: 1
  174. -- font id: 0
  175. -- text size: 12
  176. -- style flags: 0
  177. -- line height: 16
  178. -- part name: Left
  179. ----- HyperTalk script -----
  180. on mouseUp
  181.   visual effect scroll right
  182.   go prev
  183. end mouseUp
  184.  
  185.  
  186.  
  187. -- part 8 (button)
  188. -- low flags: 00
  189. -- high flags: 2000
  190. -- rect: left=437 top=264 right=299 bottom=471
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 26425 / 26425
  193. -- text alignment: 1
  194. -- font id: 0
  195. -- text size: 12
  196. -- style flags: 0
  197. -- line height: 16
  198. -- part name: Right
  199. ----- HyperTalk script -----
  200. on mouseUp
  201.   visual effect scroll left
  202.   go next
  203. end mouseUp
  204.  
  205.  
  206.  
  207. -- part 9 (button)
  208. -- low flags: 00
  209. -- high flags: A003
  210. -- rect: left=390 top=206 right=228 bottom=490
  211. -- title width / last selected line: 0
  212. -- icon id / first selected line: 0 / 0
  213. -- text alignment: 1
  214. -- font id: 0
  215. -- text size: 12
  216. -- style flags: 0
  217. -- line height: 16
  218. -- part name: Delete Card
  219. ----- HyperTalk script -----
  220. on mouseUp
  221.   get the number of cards
  222.   if it < 3 then
  223.     beep 1
  224.     answer "You wouldn't want to delete this card!"
  225.     exit mouseUp
  226.   else
  227.     beep 1
  228.     answer "Are you sure you want to delete this card?" with "Cancel" or "OK"
  229.     If it is "OK" then
  230.       doMenu "Delete Card"
  231.     end if
  232.   end if
  233. end mouseUp
  234.  
  235.  
  236.  
  237. -- part 10 (button)
  238. -- low flags: 00
  239. -- high flags: A003
  240. -- rect: left=389 top=171 right=193 bottom=489
  241. -- title width / last selected line: 0
  242. -- icon id / first selected line: 0 / 0
  243. -- text alignment: 1
  244. -- font id: 0
  245. -- text size: 12
  246. -- style flags: 0
  247. -- line height: 16
  248. -- part name: New Card
  249. ----- HyperTalk script -----
  250. on mouseUp
  251.   go last card
  252.   doMenu "New Card"
  253.   put 800 into field "Set Size"
  254. end mouseUp
  255.  
  256.  
  257.  
  258. -- part 11 (button)
  259. -- low flags: 00
  260. -- high flags: 2000
  261. -- rect: left=478 top=268 right=297 bottom=509
  262. -- title width / last selected line: 0
  263. -- icon id / first selected line: 2162 / 2162
  264. -- text alignment: 1
  265. -- font id: 0
  266. -- text size: 12
  267. -- style flags: 0
  268. -- line height: 16
  269. -- part name: Return
  270. ----- HyperTalk script -----
  271. on mouseUp
  272.   visual effect dissolve
  273.   go to card id 4254
  274. end mouseUp
  275.  
  276.  
  277.  
  278.  
  279. -- part 12 (field)
  280. -- low flags: 00
  281. -- high flags: 0002
  282. -- rect: left=368 top=322 right=338 bottom=510
  283. -- title width / last selected line: 0
  284. -- icon id / first selected line: 0 / 0
  285. -- text alignment: 1
  286. -- font id: 3
  287. -- text size: 10
  288. -- style flags: 256
  289. -- line height: 13
  290. -- part name: When Done
  291.  
  292.  
  293. -- part 14 (button)
  294. -- low flags: 00
  295. -- high flags: A003
  296. -- rect: left=389 top=138 right=160 bottom=489
  297. -- title width / last selected line: 0
  298. -- icon id / first selected line: 0 / 0
  299. -- text alignment: 1
  300. -- font id: 0
  301. -- text size: 12
  302. -- style flags: 0
  303. -- line height: 16
  304. -- part name: Find
  305. ----- HyperTalk script -----
  306. on mouseUp
  307.   ask "What would you like to find?" with "Disk or File name here"
  308.   find it
  309. end mouseUp
  310.  
  311.  
  312.  
  313. -- part 16 (field)
  314. -- low flags: 00
  315. -- high flags: 0002
  316. -- rect: left=199 top=309 right=325 bottom=262
  317. -- title width / last selected line: 0
  318. -- icon id / first selected line: 0 / 0
  319. -- text alignment: 1
  320. -- font id: 0
  321. -- text size: 12
  322. -- style flags: 0
  323. -- line height: 16
  324. -- part name: TotalSize
  325. ----- HyperTalk script -----
  326. on Calculate
  327.   set numberFormat to "0"
  328.   put 0.00 into runningTotal
  329.   repeat with i = 1 to number of lines in field "size"
  330.     get line i of field "size"
  331.     add it to runningTotal
  332.   end repeat
  333.   put runningTotal into field "TotalSize"
  334. end Calculate
  335.  
  336.  
  337.  
  338. -- part 17 (button)
  339. -- low flags: 00
  340. -- high flags: 0000
  341. -- rect: left=8 top=321 right=342 bottom=23
  342. -- title width / last selected line: 0
  343. -- icon id / first selected line: 0 / 0
  344. -- text alignment: 1
  345. -- font id: 0
  346. -- text size: 12
  347. -- style flags: 0
  348. -- line height: 16
  349. -- part name: Flash
  350.  
  351.  
  352. -- part 20 (field)
  353. -- low flags: 00
  354. -- high flags: 0002
  355. -- rect: left=199 top=324 right=341 bottom=262
  356. -- title width / last selected line: 0
  357. -- icon id / first selected line: 0 / 0
  358. -- text alignment: 1
  359. -- font id: 0
  360. -- text size: 12
  361. -- style flags: 0
  362. -- line height: 16
  363. -- part name: FreeSize
  364.  
  365.  
  366. -- part 21 (button)
  367. -- low flags: 00
  368. -- high flags: 2000
  369. -- rect: left=390 top=73 right=95 bottom=414
  370. -- title width / last selected line: 0
  371. -- icon id / first selected line: 1015 / 1015
  372. -- text alignment: 1
  373. -- font id: 0
  374. -- text size: 12
  375. -- style flags: 0
  376. -- line height: 16
  377. -- part name: 800K
  378. ----- HyperTalk script -----
  379. on mouseUp
  380.   get field "Set Size"
  381.   if it = 800 then put 400 into field "Set Size"
  382.   else
  383.     put 800 into field "Set Size"
  384.   end if
  385. end mouseUp
  386.  
  387.  
  388.  
  389. -- part 23 (field)
  390. -- low flags: 01
  391. -- high flags: 0002
  392. -- rect: left=415 top=75 right=93 bottom=456
  393. -- title width / last selected line: 0
  394. -- icon id / first selected line: 0 / 0
  395. -- text alignment: 1
  396. -- font id: 0
  397. -- text size: 12
  398. -- style flags: 0
  399. -- line height: 16
  400. -- part name: Set Size
  401.